home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 4 / Assassins 4 (1999)(Weird Science).iso / extra_memory_needed2 / numberx / example / example_fonts.asc next >
Text File  |  2014-04-27  |  1KB  |  52 lines
  1. '**********************************************
  2. '**** This examples needs Jd.Lib Extension ****
  3. '**********************************************
  4. '
  5. Screen Open 0,640,256,16,Hires
  6. Curs Off : Flash Off : Cls 0
  7. Hide On : Screen Hide 
  8. _DRAW_BOX
  9. '
  10. 'Now I say Jd Extension to loads siesta.font size=8  
  11. '
  12. Jd Textfont "siesta.font",8
  13. '
  14. Ink 2,6
  15. Text 100,70,"EXAMPLES_FONTS  Using AMOSPROFESSIONAL and Jd Extension"
  16. Text 250,115,"Press any key"
  17. '
  18. 'Now I say Jd Extension to loads siesta.font size=24   
  19. '
  20. Jd Textfont "siesta.font",24
  21. Text 130,100,"EXAMPLES_FONTS"
  22. Screen Show 
  23. Wait Key 
  24. '
  25. 'Now I say Jd Extension to loads fonts Paparapappa.
  26. '
  27. Jd Textfont "Paparapappa.font",8
  28. '
  29. _DRAW_BOX
  30. '
  31. 'Jd Extension doesn't find it and doesn't write NOTHING!   
  32. '
  33. Ink 2,6
  34. Text 100,70,"EXAMPLES_FONTS  Using AMOSPROFESSIONAL and Jd Extension"
  35. '
  36. 'Now Load correct font 
  37. '
  38. Jd Textfont "siesta.font",8
  39. '
  40. Text 250,115,"Press any key"
  41. Wait Key 
  42. Show On 
  43. Edit 
  44. '
  45. Procedure _DRAW_BOX
  46.    Ink 6,0
  47.    Bar 50,50 To 590,120
  48.    Ink 2,0
  49.    Box 50,50 To 590,120
  50. End Proc
  51.  
  52.